flexdashboard

I will first tidy the data set. It is important to standardize some of the values including, snow, tmax, tmin, and prcp.

Column

Chart A

ny_noaa %>% 
  plot_ly(x=~year, y = ~snow_mm, color = ~year, type = "box", colors = "viridis")

Column

Chart B

ny_noaa %>% 
  plot_ly(x = ~year, y = ~snow_mm, color = ~year, type = "bar", colors = "viridis")

Chart C

ny_noaa %>%
  plot_ly(
    x = ~year, y = ~tmin, type = "scatter", mode = "markers", alpha = 0.5)